library(maps)
##
## Attaching package: 'maps'
## The following object is masked from 'package:purrr':
##
## map
library(sf)
states <- maps::map("state", plot = FALSE, fill = TRUE) %>% st_as_sf() %>%
as_tibble %>%
rename(state = ID,
geometry = geom)
states
## # A tibble: 49 × 2
## state geometry
## <chr> <MULTIPOLYGON [°]>
## 1 alabama (((-87.46201 30.38968, -87.48493 30.37249, -87.52503 30.372…
## 2 arizona (((-114.6374 35.01918, -114.6431 35.10512, -114.603 35.1223…
## 3 arkansas (((-94.05103 33.03675, -94.05103 33.30031, -94.05676 33.575…
## 4 california (((-120.006 42.00927, -120.006 41.20139, -120.006 39.70024,…
## 5 colorado (((-102.0552 40.00964, -102.061 40.00391, -102.0552 39.5799…
## 6 connecticut (((-73.49902 42.04937, -73.04066 42.04364, -73.01201 42.043…
## 7 delaware (((-75.80231 39.72889, -75.76221 39.72889, -75.74503 39.757…
## 8 district of col… (((-77.13731 38.94394, -77.06283 38.99551, -77.01699 38.972…
## 9 florida (((-85.01548 30.99702, -84.99829 30.96264, -84.97537 30.922…
## 10 georgia (((-80.89018 32.0398, -80.85007 32.02834, -80.84435 32.0168…
## # … with 39 more rows